home *** CD-ROM | disk | FTP | other *** search
- char * ocean_panel_constructor(double x, double y, double z, double a,
- visc_type b, int c);
- int Ocean_changed(char * ocean_panel_handle);
- void Ocean_dirty_flag_reset(char * ocean_panel_handle);
- double Ocean_lambda(char * ocean_panel_handle);
- double Ocean_viscosity_value(char * ocean_panel_handle);
- visc_type Ocean_viscosity_type(char * ocean_panel_handle);
- int Ocean_nmodes(char * ocean_panel_handle);
- short Ocean_new_nmodes(char * ocean_panel_handle);
- int Ocean_run(char * ocean_panel_handle);
- int Ocean_restart(char * ocean_panel_handle);
- void Ocean_clear_restart(char * ocean_panel_handle);
-
- /*
- -*++ class ocpanel: SunView control panel for ocean layer
- **
- ** (*++ history:
- ** 6 Jan 88 Bruce Eckel Creation date. Top-level wrapping for
- ** Keffer's C code.
- ** ++*)
- **
- ** (*++ detailed:
- ** ++*)
- */
-
- class ocean_layer;
- class phys_vector;
-
- class ocpanel {
- char * ocean_panel_handle;
- int screen_update_rate;
- public:
- ocpanel(ocean_layer & ocean);
- char * handle() { return ocean_panel_handle; }
- int changed() { return Ocean_changed(ocean_panel_handle); }
- void reset() { Ocean_dirty_flag_reset(ocean_panel_handle); }
- double lambda() { return Ocean_lambda(ocean_panel_handle); }
- double viscosity_value()
- { return Ocean_viscosity_value(ocean_panel_handle); }
- visc_type viscosity_type()
- { return Ocean_viscosity_type(ocean_panel_handle); }
- int nmodes() {return Ocean_nmodes(ocean_panel_handle); }
- short new_nmodes() {return Ocean_new_nmodes(ocean_panel_handle); }
- int display_rate() {return screen_update_rate; }
- void display(phys_vector & DispVec);
- int run() { return Ocean_run(ocean_panel_handle); }
- int restart() { return Ocean_restart(ocean_panel_handle); }
- void clear_restart() { Ocean_clear_restart(ocean_panel_handle); }
- };